home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh41.d64
/
listing 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
616b
|
29 lines
1000 REM UNTERPROGRAMM 1
1001 REM LESEN EINES EINTRAGES AUS DEM
1002 REM DIRECTORY (ALLE 30 BYTES !!!)
1003 REM IN DIE VARIABLE DD$
1004 REM UEBERGABEPARAMETER:
1005 REM MM=NUMMER DES EINTRAGES DER
1006 REM GELESEN WERDEN SOLL
1007 :
1008 :
1009 :
1010 OPEN 15,8,15,"I":OPEN8,8,8,"#"
1020 NN$="":FORI=1TO30:NN$=NN$+CHR$(0):NEXTI
1030 XX=INT((MM-1)/8)
1040 PRINT#15,"U1 8 0 18 0"
1050 FORZZ=1TOXX+1
1060 PRINT#15,"B-P 8 0"
1070 GET#8,TT$:TT=ASC(TT$+CHR$(0))
1080 GET#8,SS$:SS=ASC(SS$+CHR$(0))
1090 IF TT=0 THEN DD$=NN$:GOTO1170
1100 PRINT#15,"U1 8 0";TT;SS
1110 NEXTZZ
1120 PP=MM-(XX*8):PP=(PP-1)*32+2
1130 PRINT#15,"B-P 8";PP
1140 FORZZ=1 TO 30:GET#8,ZZ$
1150 IFZZ$=""THENZZ$=CHR$(0)
1160 DD$=DD$+ZZ$:NEXTZZ
1170 CLOSE 8:CLOSE 15
1180 RETURN